报读什么学校？R语言告诉你要跟随初心！

今天最主要是跟大家讲一讲这个图怎么画。

先加载包

require(magick)
require(ggplot2)
require(ggplotify)
require(shadowtext)
require(ggimage)

如果这些包你没有安装，那就直接install.packages()安装即可，全都在CRAN上。

读入底图

❝

上不了谷歌，就用百度？你有Bing啊！

❞

首先我在bing搜索图片，「高校logo」，然后截个图，做为底图，用magick包读入，用ggplotify包转为ggplot对象。还不知道ggplotify，请猛击《ggplotify简史》。

x = image_read("~/Pictures/2020-07-26_22-19.png")
p = as.ggplot(x)

图上嵌图

smu = "http://www.smu.edu.cn/images/nfyk-logo.png"

p <- p + geom_rect(xmin=.2, xmax=.8, ymin=.4,
              ymax=.6, fill='steelblue', alpha=.5) +
    geom_image(x=.5, y=.5, image=smu, size=.6)

用一张南方医科大学的官方logo，把它加到底图的上层，但由于背景太复杂，为了更突显出来，我先用geom_rect加一个方框，图上嵌图，当然是用ggimage包了，或许可以了解一下这一篇：《shit，拟合的残差这么大！》。

寄语

msg = "填志愿一定要遵从本心\n第一眼看到哪个，就报哪个！"

p  + geom_shadowtext(
          x=.5, y=.8, label=msg,
          size=10, color='firebrick')

最后怎么少得了给大家说两句心里话，还是有背景太复杂的问题，你用geom_text去加字，字没法突显出来，这时候，拿出来shadowtext包，这个包你也不了解的话，《带你装逼带你飞，画图的文本打出阴影立体效果 》这一篇文章来了解一下。

❝

弱弱地讲一声，ggimage, ggplotify和shadowtext都是我写的，只有在这里，你才会学到这些包的组合拳如何给你画图加码。

❞

看完你还想看